home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Other Langs / Tickle-4.0 (tcl) / library / TclInit.tcl < prev    next >
Encoding:
Text File  |  1993-11-05  |  1.2 KB  |  42 lines  |  [TEXT/MPS ]
  1. #----------
  2. # This file has been modified for Macintosh Tcl and Tickle. -- Tim Endres
  3. #----------
  4. #puts stdout "••• TclInit.tcl"
  5.  
  6. #-----------------------------------------------------------------------------
  7. # TclInit.tcl -- Extended Tcl initialization.
  8. #-----------------------------------------------------------------------------
  9. # $Id: TclInit.tcl,v 2.8 1993/08/31 23:03:20 markd Exp $
  10. #-----------------------------------------------------------------------------
  11.  
  12. #
  13. # Unknown command trap handler.
  14. #
  15. proc unknown {name args} {
  16.     if [auto_load $name] {
  17.         return [uplevel 1 $name $args]
  18.     }
  19.     if {([info proc tclx_unknown2] == "") && ![auto_load tclx_unknown2]} {
  20.         error "can't find tclx_unknown2 on auto_path"
  21.     }
  22.     return [tclx_unknown2 [concat $name $args]]
  23. }
  24.  
  25. set auto_index(buildpackageindex) {source [info library]:buildidx.tcl}
  26.  
  27. # == Put any code you want all Tcl programs to include here. ==
  28.  
  29. if !$tcl_interactive return
  30.  
  31. # == Interactive Tcl session initialization ==
  32.  
  33. if ![info exists tcl_prompt1] {
  34.     set tcl_prompt1 {return "tcl> "}
  35. }
  36. if ![info exists tcl_prompt2] {
  37.     set tcl_prompt2 {return "and> "}
  38. }
  39.  
  40. if [file readable ~:•tclrc] {source ~:•tclrc}
  41.  
  42.